home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / env.rexx < prev    next >
OS/2 REXX Batch file  |  2001-05-24  |  1KB  |  59 lines
  1. /*
  2. ** MacroEnv() example
  3. **
  4. **/
  5.  
  6. signal on halt
  7. signal on break_c
  8.  
  9. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  10.  
  11. call MacroEnv("env")
  12.  
  13. /*
  14. ** Accettiamo i seguenti argomenti:
  15. ** da shell la template "CONFIG/K,PORT/K/N,START/S,QUIET/S,NOGUI/S"
  16. ** da Workbench i tooltype
  17. ** CONFIG, PORT, START, QUIET, NOGUI
  18. **/
  19.  
  20. if env.wb? then do
  21.     c=FindVar("CONFIG")
  22.     p=FindVar("PORT")
  23.     s=(FindVar("START")~="")
  24.     q=(FindVar("QUIET")~="")
  25.     n=(FindVar("NOGUI")~="")
  26. end
  27. else do
  28.     if ~ReadArgs("CONFIG/K,PORT/K/N,START/S,QUIET/S,NOGUI/S") then do
  29.         call PrintFault()
  30.         exit
  31.     end
  32.     if parm.0.flag then c=parm.0.value; else c=""
  33.     if parm.1.flag then p=parm.1.value; else p=""
  34.     s=parm.2.flag
  35.     q=parm.3.flag
  36.     n=parm.4.flag
  37. end
  38.  
  39. if c="" then c="[none]"
  40. if p="" then p="[none]"
  41.  
  42. nl="0a"x
  43.  
  44. if env.wb? then do
  45. call EasyRequest("
  46. Config"  c || nl ||"
  47. Port  "  p || nl ||"
  48. Start "  s || nl ||"
  49. Quiet "  q || nl ||"
  50. NoGui "  n,env.prg)
  51. end
  52. else do
  53.     say env.prg": Config"  c
  54.     say env.prg": Port  "  p
  55.     say env.prg": Start "  s
  56.     say env.prg": Quiet "  q
  57.     say env.prg": NoGui "  n
  58. end
  59.